home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
editor
/
blksedtr.lha
/
BED
/
Rexx
/
InsertVersion.bed
< prev
next >
Wrap
Text File
|
1996-05-06
|
415b
|
23 lines
/*
** $VER: InsertVersion.bed 1.0 (02.01.96)
**
** Insert an AmigaDOS version string at the current cursor position,
** taking the current filename and date.
*/
OPTIONS RESULTS
GetFileInfo
PARSE VAR RESULT . . '"'name'"'
date = DATE(e);
day = SUBSTR(date,1,2)
month = SUBSTR(date,4,2)
year = SUBSTR(date,7,2)
str = "$VER: " || name || " .0 (" || day || "." || month || "." || year || ")"
Text str
MoveLeft 13